Application 



Sh Engine 



SI Hardware 



Application 



SI 



SI Hardware 



Application 



Sl 2 Engine 



SI Hardware 



Sh 



Sl 2 Engine 



Sl 2 



FIG. 1 



Common libraries 



Application 



1 | 

Common libraries 



— 


SI-! Engine lsi 2 Engine 


Sl n Engine 




SI Hardware 





Sh Engine 



Application 
"^^^gine^ 



Sl n Engine 



SI Hardware 



SU 



Sl 2 



FIG. 2 



Application 



Sli description 




Generic SI Engine 



SI Hardware 



Sh 



Application 



Sh description 



Repl 
or 



ace 
acd 



Generic SI 



SI Hardware 



Sl 2 Description 



Application 



Sl 2 description 



n 



Generic SI Engine 



SI Hardware 



Sl 2 



FIG. 3 




FIG. 6 



Description ::= StructureDef initions 

StructureDef initions ::= StructureDef inition MoreStructureDef initions 
MoreStructureDef initions ::= StructureDef initon | X 
StructureDef inition ::= StructureName "{ u StructureBody 
StructureName ::= Variable 
StructureBody ::= OptHeader FieldDefs 

OptHeader ::= "type" " = " TypeName OptFilterValues" ; " \ X 
TypeName : : = Variable 

OptFilterValues : := "f ilterValues" u =" FilterPairs | X 

FilterPairs ::= FilterPair OptMoreFilterPairs 
OptMoreFilterPairs : := FilterPair OptMoreFilterPairs | X 
FilterPair : := "( w FilterField w ," FilterValue ")" 
FilterField Variable 
FilterValue:: Poslnteger 
FieldDefs ::= FieldDef OptMoreFieldDef s 
OptMoreFieldDef s : := FieldDef OptMoreFieldDef s | X 
FieldDef : := SimpleFieldDef | ComplexFieldDef 

SimpleFieldDef ::= FieldName FieldSize SimpleFieldFormat OptValues 

FieldName ::= Variable | "reserved" 

FieldSize ::= Poslnteger 

SimpleFieldFormat : := Predef inedType 

Predef inedType ::= Variable 

OptValues ::= " = " Value OptValues | X 

Value ::= Poslnteger 

ComplexFieldDef : := LoopDef | StructDef SEMICOLON | AlternateDef 
LoopDef ::= "loop" LoopLength w { w FieldDefs 

LoopLength : : = Term OptMoreLoopLength 
Term ::= Poslnteger | StructVariable 

OptMoreLoopLength : := Operation Term OptMoreLoopLength | X 
Operation : := u +" | 

StructVariable : := Variable OptMoreVariables 
OptMoreVariables : := w ." Variable OptMoreVariables | X 
StructDef ::= StructureName " (" 
AlternateDef : := "alternate" FieldDefs 
Variable ::= Letter RestrictedCharSet 
RestrictedCharSet : := Letter | Digit | | X 

Poslnteger ::= Digit MoreDigits 
MoreDigits ::= Digit MoreDigits 

Letter : := "a" | w b" | ... | w z" | "A" | "B" | ... | "Z" 
Digit : := w 0" | "1" | ... | "9" 
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network_inf ormation_section { 

type = MPEG, f ilterValues = (PID, 8) ; 
table_id, 8, uimsbf, = 64, = 65; 
section_syntax_indicator , 1, bslbf; 
reserved, 1, bslbf; 
reserved, 2, bslbf; 
section_length, 12, uimsbf; 
network_id, 16, uimsbf; 
reserved, 2, bslbf; 
version__number , 5, uimsbf; 
current_next_indicator , 1, bslbf; 
section_number , 8, uimsbf; 
last_section_number , 8, uimsbf; 
reserved, 4, bslbf; 

network_descriptors__length, 12 , uimsbf; 
loop, network_descriptor__length, { 
NITDescriptor () ; 

} 

reserved, 4, bslbf; 

transport_stream_loop_length, 12 , uimsbf ; 
loop, transport_stream__loop_length, { 

transport_stream__id, 16, uimsbf; 

original_network__id, 16, uimsbf; 

reserved, 4, bslbf; 

transport_descriptors_length, 12 , uimsbf ; 
loop, transport_descriptors_length, { 
NITDescriptor {) ; 

} 

} 

} 

NITDescriptor { 

alternate { 

network_name 
service_list 

data_broadcast_id_descriptor () ; 

} 

} 



descriptor ( ) ; 
descriptor ( ) ; 
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struct complexType { 

{ this struct would be used to represent any structure or complex field} 

string Name; {name of the structure or field; used to match value from semantic analyzer} 

complexTypeKind kind; {enumerated type: one of structure, loop, or alternate} 

string baseProtocolType; { for structures that have types } 

{ above field is a handle allowing determination of the name of the lower level filter 
and the mask representing the bits that the lower level filter is capable of 
filtering on.} 
couplets *baseProtocolFieldValues; 

{ this field shall contain a ptr to a list of memory locations that will contain the filter 
pairs} 

alternativeListJ; *alternatives; 

{ pointer to a list of all of the possible alternatives for fields of this field or structure } 

}tableType_t; 

struct alternativeList { 
string Name; 

fieldDescription J; *fieldDescriptions 

{ this would be a pointer to a linked list of lists of descriptions of the alternate lists of fields; 
since it is possible to know how many elements need to be in this list, space for it can be 
dynamically allocated and efficient access using pointer arithmetic is possible. } 
alternativeListJ; *next; 
}alternativeList_t; 

struct fieldDescription { 

{ this particular representation assumes that exactly enough space to hold all of the fields is 
allocated allowing direct access to any field without walking through a linked list, simply by 
using pointer arithmetic ~ hence, there is no "next" field at the end.} 
string fieldName; { this is also used to match value from semantic analyzer.} 
fieldTypeKind_t fieldTypeKind; { enumerated type: one of basic, structure, or loop.} 
fieldType_t *fieldType; { if basic, this is a pointer to one of the basic types listed in the 

system encoding type tables; in example above, these would be uimsbf and bslbf. 

if structure or loop, this field is a pointer to a linked list of tableType t structures, any of 

which could occupy this field.} 
indexListJ: *lengthList { see below for definition of structure pointed to by this field; allows the 

length of the field to be a fixed constant, a value provided in another field (of any 

structure or loop), or an arbitrary sum or difference of any of these. } 
indexList_t *offsetList {same format as lengthList, and computed/computable from the 

lengthLists, but storing this valueallows direct access to this fieldDescription} 
value_list_t *valueList; { this is a list of values that have been specified for this field} 
} fieldDescriptiont; 

struct indexList{ 

enum valueKind; { one of fixed_constant, reference_field or variable. 
fixed_constant means a fixed number of bits; reference_fieid means that the length is given 
by another field in this (or another) structure, and variable means that it is not known.} 
valuePtrt *valuePtr;{ this would be a pointer to an integer if type is fixed_constant, another 
field if type is reference_field; or pointer is null if type is variable} 

int multiplier; { either +1 or -1; allows arbitrary sums/differences for length } 
indexList *next; { in case this value is a sum of other values} 
}indexList_t; 
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Define int Movie = 1; 
Define string Actor = 'Actors- 
Define string Product ionCompany = 'Production Company 1 ; 

Define Object eventlnfo = { 

f etch (event_information_sect ion, 

filter: 

table_id > 90 , 
table_id <= 113; 
return: 

name := loop_l = outer_loop . loopl . extended_event_descriptor 
= named_descriptor . loop_2 . text_char [] , 
start_time := out er_l oop . star t_time, 

end__time : = compute (out er_l oop. star t_time + outer_loop. duration) 
) 

where 

channel (relop relationalOp, int value) = 

{obtain triplet : = identifyingTrio where channel (relationalOp, value); 
set (event_inf ormation_section, 
filter: 

original_network_id == triplet . original_network_id, 
transport_stream__id =- triplet . transport_stream_id, 
service_id == triplet . service_id) ; 

/* see below for the definition of the identifyingTrio object */ 

eventType (relop relationalOp, int value) = 
{set (event_inf ormation_section, 

filter : outer_loop . loopl . descriptor . content_descriptor . loop_l . 

content_nibble_l relationalOp value) ; } 

instantiate (relop relationalOpl, string strl, relop relationalOp2 , 

string str2) = 
{set (event_inf ormation_section, 

filter: 

named_descriptor . loop_l=chosen_loop . item_description_char 
relationalOp strl, 

chosen_loopl . item_char relationalOp2 str2) ; } 
startTime (relop relationalOp, int tl) = 

/* assumes that application program has already converted the 
requested tl into seconds past midnight local time. 
Also, assumes that the following global variables are known, 
all in seconds */ 

{set (event_inf ormation_section, filter: section_number >= 
compute ( ( (tl-Current_local_time) + 

( ( Current_local_time - UTCDif f erence) mod 24) div 3) * 8) , 
outer_loop . start__time relationalOp tl) ; } 

endTime (relop relationalOp, int t2) = 
{set (event__inf ormation_section, 
filter: 

section_number <= compute { ( ( { ( t2 - Current_local_time) + 
( ( Current_local_time - UTCDif f erence) mod 24 ) ) 
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div 3) * 8) + 7) , 

compute (outer_loop . start_time + outer__loop . duration) 
relationalOp t2) ; 

} 

event_id (relop relationalOp, int value) = 
{ set (event_inf ormation_section, 

filter: outer_loop . event_id relationalOp value); } 

} 

Define Object identifyingTrio = { 
fetch (channel_correspondence_section, 
return: 

original_network_id : = 

loop_l = channel_loop . original_network_id, 
transport_stream_id := channel__loop . transport__stream_id, 
service__id := channel_loop . service_id) 
where 

channel (relop relopetionOp, int value) = 

{ set (channel__correspondence_section / 
filter: channel_number relationalOp value) ; 

} 
} 
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Program ::= Definitions 

Definitions Definition OptMoreDefinitions 

OptMoreDefinitions: :== X | Definition OptMoreDefinitions 

Definition ::= DEFINE RestOfDef 

RestOfDef ::= ConstantDef | ObjectDef 

ConstantDef ::= Type VARIABLE EQUALS Value SEMICOLON 
Type ::= INTTYPE | STRINGTYPE 
Value ::= INTEGER| STRING 

ObjectDef OBJECT ObjName EQUALS LEFTCURLY Fetches OptRestObjDef RIGHTCURLY 
ObjName ::= VARIABLE 
Fetches ::= Fetch OptMoreFetches 
OptMoreFetches ::= X | Fetch OptMoreFetches 

Fetch ::= FETCH LPAREN StructureName COMMA OptFilterPart ReturnPart RPAREN 

StructureName ::= VARIABLE 

OptFilterPart::- X | FilterPart 

ReturnPart ::= RETURN COLON ReturnStmts 

ReturnStmts ::= ReturnStmt OptMoreReturnStmts 

OptMoreReturnStmts ::= X | COMMA ReturnStmt OptMoreReturnStmts 

ReturnStmt ::= FieldName ASSIGNOP FieldValue 

FieldName ::= VARIABLE 

FieldValue ::= PathValue | ComputeExpression 

PathValue PathName OptArraylnd 

OptArraylnd ::=X\ LSQUARE RSQUARE 

PathName ::=NarrowName OptTempName OptRestOfPath 

OptTempName ::= X | EQUALS TempName 

NarrowName --VARIABLE 

TempName ::= VARIABLE 

OptRestOfPath ::= X | DOT PathName 

ComputeExpression ::= COMPUTE LPAREN Expr RPAREN 

Expr ::= Term RestOfExpr 

RestOfExpr ::=X\ BinOperator Expr 

Term::- CompoundTerm | SimpleTerm 

CompoundTerm ::= LPAREN Expr RPAREN 

SimpleTerm ::= INTEGER | PathName 

BinOperator ::= PLUS | MINUS | TIMES | DIV | MOD | MIN | MAX 
OptRestObjDef ::= X | WHERE Methods 
Methods : := Method OptMoreMethods 
OptMoreMethods ::=X\ Method OptMoreMethods 

Method : ~ MethodName LPAREN ParamList RPAREN EQUALS MethodDefn 

MethodName VARIABLE 

ParamList ::= X | Parameter OptMoreParameters 

OptMoreParameters ::= X | COMMA Parameter OptMoreParameters 

Parameter ::= SpecifiedArg | ConstantSpec | RelSpec 

RelSpec ::= RELOP RelOp Variable 

SpecifiedArg VARIABLE 

ConstantSpec ::= Type ConstantVar 

ConstantVar ::= VARIABLE 

RelOpVariable ::= VARIABLE 

MethodDefh LEFTCURLY OptAcquisitions FilterSets RIGHTCURLY 
OptAcquisitions ::= X \ Acquisition OptAcquisitions 
FilterSets ::= FilterSet OptMoreFilterSets 
OptMoreFilterSets ::=X\ FilterSet OptMoreFilterSets 

FilterSet ::= SET LPAREN StructureName COMMA FILTER COLON Filters RPAREN SEMICOLON 
FilterPart FILTER COLON Filters SEMICOLON 

Filters ::= CompOperand OptArraylnd Comparator CompOperand OptMoreFilters 
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OptMoreFilters ::=X\ COMMA Filters 

Comparator ::= RelOpVariable | DBLEQUALS | GT | GTEQ | LTEQ | LT | NOTEQUALS 
CompOperand ::= PathName | ComputeExpression | INTEGER | STRING 

Acquisition ::= OBTAIN Objectlnstantiation ASSIGNOP ObjName OptConstraint SEMICOLON 

OptConstraint ::= WHERE OptConstraints 

Objectlnstantiation ::= VARIABLE OptArraylnd 

OptConstraints ::= X | Constraint OptConstraints 

Constraint ::= MethodName LPAREN ActualParamList RPAREN 

ActualParamList ::= ActualParam OptMoreActualParams 

OptMoreActualParams ::= A. | COMMA ActualParam OptMoreActualParams 

ActualParam ::= VARIABLE I INTEGER 
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Def inionList_t *PtrToDefns; 

struct Def initionList { 

Defn_t *DefPtr; 

Def initionList__t *NextDefn; 
}Def initionList_t ; 

struct Defn{ 

enum DefnType; {One of "Integer", "String", or "Object"} 
string Name; {VARIABLE from ConstantDef or ObjName from 
ObjectDef } 

void *valuePtr; {points to an integer, a string or ObjParts__t 
structure (defined below) } 

} Defn_t; 

struct ObjectParts{ 

FetchList_t *FList ; 

MethodList_t *MethodList ; 
}ObjParts__t / 

struct MethodList{ 

Methods truct_t *MethodPtr ; 

MethodList_t * Next Met hod; 
} MethodList_t; 

struct FetchList { 

FetchStruct__t *FStruct; 

FetchList_t *NextFetch; 
}FetchList_t; 

struct FetchStruct{ 

string StructureName; 

FilterList_t *FiltList; 

ReturnLis t__t * R t r nL i s t ; 
} FetchS truct_t ; 

struct FilterList{ 

FilterStruct__t *FiltStruct; 

FilterList_t *NextFilter; 
}FilterList_t ; 

struct FilterStruct { 

string StructureName; 

FilterFieldList_t *FilterFields ; 
} Fil terSt rue t_t ; 

struct FilterFieldList { 

FilterFieldStruct_t *FilterField; 

FilterFieldList_t *NextFilterField; 
} FilterFieldList_t ; 

struct FilterFieldStruct { 

void *FirstOperand; { points to one of a pathList_t, 

Computes tack_t, an integer, or a string } 

void *RelationalOp; { points to a string (if operator can 
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vary) or an enum containing one of eq, gt, gteq, etc. )} 
enum RelationalType; { one of "string" or "actual"} 
void *SecondOperand; { same type as FirstOperand } 
}FilterFieldStruct_t ; 

struct ReturnList{ 

ReturnStruct_t *RtrnStruct; 

ReturnList_t *NextRtrn; 
} ReturnList_t ; 

struct ReturnStruct{ 

string NewFieldName; 

void *FieldValue; { ptr to one of a pathList_t or Computes tack_t } 
enum type; { one of "path" or "computes tack" } 
} R e turnS t rue t _t ; 

struct pathList{ 

string Name; 

string tempName; {used in scope to mean that a single 

(sub-) structure is multiply constrained} 
pathList_t *nextName ; 

enum Type; { one of "array" or "scalar"} 
} pathList_t; 

struct ComputeStack{ 

void *ItemPtr; {points to item to push on list} 

{item is of type integer, pathname, or operator} 
{operator is an enum type containing one of: 

plus, minus, times, div, min, max, or mod} 
enum type; { one of "integer", "pathname" or "operator" } 
Computes tack__t *nextToPushOn; 
} ComputeStack_t ; 

struct MethodStruct{ 

string MethodName; 

ParamList_t *ParamListPtr ; 

MethodDef nStruct_t *MethodDefn; 
}MethodStruct_t; 

struct MethodDef nStruct { 

AcqList_t *AcqList; 

FilterList_t *FilterList; 
} MethodDef nStruct_t; 

struct AcqList{ 

AcqStruct_t *AcqPtr; 

AcqList_t *NextAcq; 
}AcqList_t ; 

struct AcqStruct{ 

string NewObjName; 

enum ObjType; { one of "scalar" or "array"} 
string OldObjName; 
ConstraintList_t Constraints ; 
} AcqStruct_t; 

struct ConstraintList{ 
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ConstraintStruct_t Constraint; 
ConstraintList_t *nextConstraint ; 
} ConstraintLi st_t ; 

struct ConstraintStruct{ 

string MethodName; 

Actual Par amList_t *ActualParams ; 
} ConstraintStruct_t ; 

struct ActualParamList{ 

void *ActualParam; { points to a string or an int} 

enum type; {one of "string" or "integer" } 

ActualParamList_t *NextParam; 
} ActualParamLis t_t ; 

struct ParamList{ 

void_t *Param; {ptr to type Specif iedArg_t , ConstantSpec_t , or 
RelSpec_t} 

enum type; { one of Specif iedArg, ConstantSpec , or RelSpec} 
ParamList_t *NextParam; 
}ParamList_t ; 

struct Specif iedArg { 

string Argument; 
} Specif iedArg_t ; 

struct ConstantSpec { 

enum type; { one of "integer" or "string"} 

void *value; { pointer to an integer or a string} 

} ConstantSpec_t ; 

struct RelSpec { 

string RelOp Variable ; 
}RelSpec_t ; 
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Select all SoughtLoop = loop_l from event_information_section where 
// event is of type "news" 

(content jaibble_l from content_descriptor from SoughtLoop = = newstype) 

//where newstype is a pre-defined constant that has been assigned the value 2 

and 

// and it is in the same bouquet as the current actual__transport_stream 
(transport_stream_id = = 

(Select transport_stream_id from MidLoop = loop_2 from 
CurrentBouquet = bouquet_association_section where 
((Select transport_stream_id 

from OtherMidLoop = loopJZ //ok ^MidLoop 
from CurrentBouquet = = 

(Select transport_stream_id from 
ActualNIT = network_information_section 
where table_id = = 64)) and 

(Select original_network_id 
from OtherMidLoop 
from CurrentBouquet = = 
(Select network id from Actual NIT))) 

and 

(original_network_id = = 

(Select original_network_id from MidLoop from CurrentBouquet)) 
// and it is carried on cable (as opposed to satellite or terrestrial) 
and 

transport_stream_id = = 

(Select transport_stream_id from DeliveryLoop = loop_2 from 
AnyNIT == nelworkinformationsection where 

exists cable_delivery__system_descriptor from DeliveryLoop from AnyNIT) 

and 

original_network_id = 

(Select original_network_id from DeliveryLoop from AnyNIT) 
// and its time is within the requested range 
and 

DVE_time_Between(RequestedStartTime ; RequestedEndTime, SoughtLoop. start time, 
SoughtLoop. duration) 
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eventinformationsection 

transport_stream_id = x 
original_network_id = v 



lActual NIT 



J network_information_section 

1: 

table id = 64 



transport_stream_id =y 
original_networkid = z 



CurrentBouquet 



Bouquetassociationsection 

OtherMidLoop 



MidLoop 



loop2 

transport_stream_id = y 
original_network_id = z 



loop2 

transport_stream_id = x 
originalnetworkid = v 
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// 

// expansion of DVB_time_Between from previous figure 

// (almost complete - see last comment below for a few details 

// intentionally left out) 

start time >= RequestedStartTime 

and 

starMime + duration <= RequestedEndTime 
and 

time_since__midnight = CurrentLocalTime - (TimeDiff) (mod 24) 

// CurrentLocalTime and the offset from UTC-0 is generally cached within a 

// set-top box - if they are not they can be obtained from the TOT or TDT tables. 

and 

StartlnUTCO = max(0, (RequestedStartTime - CurrentLocalTime)- 
time_since_midnight)) 
and 

EndlnUTCO = max(96, (RequestedEndTime - CurrentLocalTime) - 
time_since_midnight) 
and 

(StartlnUTCO div 3) * 8 <= sectionnumber <= ((EndlnUTCO div 3) * 8) + 7 
and 

thissection_number = section_number <= last_section_in_segment_number from 
event_information_section where 

first_section_in_segment = section_number from 
event_information_section where 

first_sectionjn_segment <= this__section__number and 
first_section_in_segment div 8 = = 0 
// Should be code in the beginning converting all of the parameters and 
// known constants (including RequestedStartTime, RequestedEndTime, 
// CurrentLocalTime, and TimeDiff) as well as the time values extracted from 
// each event_information_section loop (including start jtime and duration) to 
// the number of minutes since midnight GMT, January 1, 1970 - or some 
// other reference date. It is the converted values that are expected to be 
// used for the comparisons above. 
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ActualTransportStreamlD(X) :- 

program_associationJable(A), is_field(A, transport_stream_id, X). 
// X is the actual transport stream id if the program association section (A) has, as a 
// transport_stream_id field with a value of X. 

TransportStreamInBouquet(C, B) :- 

bouquet_association_section(L), 

is_field (L, bouquet_id, B), 

is_field(L, transport_stream_id, C). 
// C is in Bouquet with bouquet_id B if a bouquet_association_section L has a bouquet Jd 
// field with a value of B and a transport_stream_id field with a value of C. 

TransmissionMedia(X, media) :- 

ActualTransportStreamlD(X), 

// case 1 : X is the actual transport stream 

network_infoimation__section(N), 

is_field(N, table_id, 32), 

is_field(N ? loopl, L), 

is_field(L, descriptor, D), 

jfrequency_list_descriptor(D) 

is_field(D, codingjype, media). 

// The transmission media of transport stream X is "media" if X is the actual transport 
// stream ID, N is a network __information_section for the current stream, L is loop 1 of N, 
// D is a frequency_list_descriptor in L, and D has codingjype field of that "media. " 

TransmissionMedia(X, media) :- 

network_information_table(N), 
is_field(N, loop2, L), 
is_field(L, transport_stream_id, X), 
is_field(L, descriptor, D), 
frequency_list_descriptor(D) 
is_field(D, coding_type, media). 

// Another possibility for X having a transmission media "media" 

// Here N can be any network_information_table where the second loop contains the 

// transportstreamid in question and it has a codingjype field of value that "media." 
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GetAllEITEvents(X, [LocalStartTime,LocalEndTime], DefmiteEvents) :- 

// This rule tells how to obtain all EITs that contain schedules for the transport 
// stream whose id is X for events that occur within the local time range. 

SchedulesAreBroadcast(X), 

// step 1 : determine whether any of the services carried on the transport stream 
// whose id is X has its schedule broadcast. If it does not, there 
// will be no such EITs, report this. 

ObtainLocalTime(CurrentTime), 

LocalEndTime > CurrentTime, 

ComputeOffsetRange([LocalStartTime, LocalEndTime], CurrentTime, OffsetRange), 
// step 2: determine the local time and how far ahead of this (at least part of) the 
// range is. If the entire range is past, report an error. Otherwise, we have a new 
// range, which we'll call an offset range (OffsetStart, OffsetEnd). 

GetUTC_OTime(CurrentUTC_0), 

// step 3: Determine the current time in UTC-0, assuming that it is transmitted 
// as a 24 hour clock, so it is the # of hours since midnight "today." 

TimeSincel2Range(CurrentUTC_0, OffsetRange, RangeSincel2), 

// step 4: Add the hours since midnight obtained in step 3 to both the OffsetStart 
// and OffsetEnd to determine the block of time since midnight UTC-0 for which 
// schedules are desired. 

TranslateTimeToEITSegmentNumber(RangeSincel2, SegmentStart, SegmentEnd), 
// step5: Determine the segment range and request the EIT scheduled in those 
// segment ranges. 

GetEITEventsInRange(SegmentStart, SegmentEnd, X, PossibleEvents), 

CheckTimes(LocalStartTime, LocalEndTime, PossibleEvents, DefmiteEvents). 
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SchedulesAreBroadcast(X) :- 

service_description_table(S), is_field(S, transport_stream_id, X), 
is_field(S, loopl, L), isJield(L, EITjschedule_flag, Flag), 
Flag=l. 
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GetEITEventsInRange(SegmentStart, SegmentEnd, X, Events) :- 
SegmentEnd > SegmentStart, 

event Jnformation_section(S), is_field(S, transport_stream_id, X), 
is_field(S, section jiumber, SegmentStart), 
is_field(S, segment Jast_sectionjiumber, SLN), 
is_field(S, loop_l, L), Append( L, Events), 
GetRestOfEITSegment(SegmentStart+l ? SLN ? X, Events), 
NewStart = SegmentStart + 8, 
GetEITsInRange(NewStart, SegmentEnd, X, Events). 

GetRestOfEITSegment(SegmentStart, SegmentEnd, X, Events) :- 
SegmentEnd >= SegmentStart, 

event_information_section(S), is__field(S, transport_stream_id, X), 
is_field(S, section_number, SegmentStart), 
is_field(S, segment_last_section_number, SLN), 
is_field(S, loop_l, L), Append( L, Events), 
GetRestOfEITSegment(SegmentStart+l, SLN, X, Events). 
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ObtainLocalTime(CurrentTime) :- 

time_offset_section(S), is_field(S, UTCjime, CurrentMJD_UTC_0), 
is_field(S, loopl, L), is_field(L, descriptor, D), 

local_time_offset_descriptor(D), is_field(D, local Jimej>ffset_j>olarity, P), 
is_field(D, local_time_offset, Offset), 

ConvertToHoursSince_l_l_1900(CurrentMJD_UTC_0, CurrentTime, P, Offset). 
// ConvertToHoursSincel900 not shown - can be implemented using arithmetic 
// formulas copied, nearly identically from DVB EN300_468, Annex C - note 
// that (-1) is raised to the P power and multiplied by the offset. 

GetUTC_OTime(CurrentUTC_0) :- 

time_date_section(S), is_field(S, UTCjime, CurrentMJD_UTC_0), 
ConvertToHoursSince_l_l_1900(CurrentMJD_UTC_0, CurrentUTCJ), 0, 0). 

ComputeOffsetRange([LocalStartTime, LocalEndTime], CurrentTime, [OffsetStart, 
OffsetEnd]) :- 

LocalStartTime > CurrentTime, OffsetStart = LocalStartTime - CurrentTime, 
OffsetEnd = 

LocalEndTime - CurrentTime. 

// if entire range is after the current time - otherwise, see next rule 

ComputeOffsetRange([LocalStartTime, LocalEndTime], CurrentTime, [OffsetStart, 
OffsetEnd]) :- 

OffsetStart = 0, OffsetEnd = LocalEndTime - CurrentTime. 

TimeSincel2Range(CurrentUTC_0, [OffsetStart, OffsetEnd], [StartTimeSincel2, 
EndTimeSincel2]):- 

StartTimeSincel2 = CurrentUTCJ) + OffsetStart, 

EndTimeSincel2 = CurrentUTCJ) + OffsetEnd. 
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TranslateTimeToEITSegmentNumber([StartTimeSincel2,EndTimeSincel2], 

SegmentStart, SegmentEnd):- 

SegmentEnd = ( (EndTimeSincel2 div 3) * 8 ) +7, 
SegmentEnd < 256, 

SegmentStart = (StartTimeSincel2 div 3) * 8). 
// use above if all times in range - otherwise use below. 

TranslateTimeToEITSegmentNumber([StartTimeSincel2,EndTimeSincel2], 
SegmentStart, SegmentEnd):- 

SegmentEnd = ( (EndTimeSincel2 div 3) * 8 ) +7, 

SegmentEnd > 255, SegmentEnd = 255, 

SegmentStart = (StartTimeSincel2 div 3) * 8). 
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CheckTimes(LocalStartTime, LocalEndTime, [FirstEvent | MoreEvents], DefiniteEvents) 

// an event corresponds to the contents of the first loop from an EIT. 
is_field(FirstEvent, startjime, Start), Start >= LocalStartTime, 
is_field(FirstEvent, duration, duration), LocalEndTime >= LocalStartTime + 
duration, 

Append(FirstEvent, DefiniteEvents), 

CheckTimes(LocalStartTime, LocalEndTime, [MoreEvents], DefiniteEvents). 
CheckTimes(LocalStartTime, LocalEndTime, [FirstEvent | MoreEvents], DefiniteEvents) 

// an event corresponds to the contents of the first loop from an EIT. 
is_field(FirstEvent, startjime, Start), Start < LocalStartTime, 
CheckTimes(LocalStartTime, LocalEndTime, [MoreEvents], DefiniteEvents). 
CheckTimes(LocalStartTime, LocalEndTime, [FirstEvent | MoreEvents], DefiniteEvents) 

// an event corresponds to the contents of the first loop from an EIT. 
is_field(FirstEvent, startjime, Start), Start >= LocalStartTime, 
is_field(FirstEvent, duration, duration), LocalEndTime < LocalStartTime + 
duration, 

CheckTimes(LocalStartTime, LocalEndTime, [MoreEvents], DefiniteEvents). 
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?- event(X), eventTitle(X, Y), eventType (X, "news"), eventsTS(X, A), 
TransportStreamInBouquet(A, B), ActualTransportStreamID(Z), 
TransportStreamInBouquet(Z, B), 

GetAllEITEvents(A, [[June, 13, 2000, 0930], [June, 13, 2000, 13 00], DefiniteEvents], 
is_member(X, DefiniteEvents), networkType(A, "cable"). 
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Transmit format description including syntax and semantics of format 
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Receive format description 
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Create internal representation(s) of syntax and semantics 
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Receive application query 
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Create masks using query, internal representation(s), and filter 
information from filter characteristics obiect 
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Apply masks to selected filters 
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Filter metadata using the masks 
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